#include base

(defun negative? (x)
  (< x 0))

(defun positive? (x)
  (< 0 x))

(defun nonpositive? (x)
  (<= x 0))

(defun nonnegative? (x)
  (<= 0 x))

(defun zero? (x)
  (= 0 x))
